VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BResumen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bUsuario"
Attribute VB_Ext_KEY = "Member1" ,"bCompania"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mvarbCompania As bCompania
Private mvarbUsuario As bUsuario
Private mvarnTotTurno As Double
Private mvarnTotal As Double
Private mvarnTotPendientes As Double
Private mvarnTotGeneral As Double
Private mvarnDiaTrabajo As Integer
Private mvarsMinTicket As String
Private mvarsMaxTicket As String
Private mvardFecha As Date
Private mvarnBaseRptZ As Double
Private mvarnIgvRptZ As Double
Private mvarnTotalRptZ As Double
Private mvarbExistenRegistros As Boolean

Public Property Get bExistenRegistros() As Boolean
bExistenRegistros = mvarbExistenRegistros
End Property

Public Property Let bExistenRegistros(parm As Boolean)
mvarbExistenRegistros = parm
End Property


Public Property Get nBaseRptZ() As Double
    nBaseRptZ = mvarnBaseRptZ
End Property

Public Property Let nBaseRptZ(ByVal nBaseRptZ As Double)
    mvarnBaseRptZ = nBaseRptZ
End Property


Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property

Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property

Public Property Get nTotTurno() As Double
    nTotTurno = mvarnTotTurno
End Property

Public Property Let nTotTurno(ByVal nTotTurno As Double)
    mvarnTotTurno = nTotTurno
End Property

Public Property Get nTotal() As Double
    nTotal = mvarnTotal
End Property

Public Property Let nTotal(ByVal nTotal As Double)
    mvarnTotal = nTotal
End Property

Public Property Get nTotPendientes() As Double
    nTotPendientes = mvarnTotPendientes
End Property

Public Property Let nTotPendientes(ByVal nTotPendientes As Double)
    mvarnTotPendientes = nTotPendientes
End Property

Public Property Get nTotGeneral() As Double
    nTotGeneral = mvarnTotGeneral
End Property

Public Property Let nTotGeneral(ByVal nTotGeneral As Double)
    mvarnTotGeneral = nTotGeneral
End Property

Public Property Get bUsuario() As bUsuario
    Set bUsuario = mvarbUsuario
End Property

Public Property Set bUsuario(bUsuario As bUsuario)
    Set mvarbUsuario = bUsuario
End Property

Public Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property

Public Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property

Public Property Get sMinTicket() As String
    sMinTicket = mvarsMinTicket
End Property

Public Property Let sMinTicket(ByVal sMinTicket As String)
    mvarsMinTicket = sMinTicket
End Property

Public Property Get sMaxTicket() As String
    sMaxTicket = mvarsMaxTicket
End Property

Public Property Let sMaxTicket(ByVal sMaxTicket As String)
    mvarsMaxTicket = sMaxTicket
End Property

Public Property Get dFecha() As Date
    dFecha = mvardFecha
End Property

Public Property Let dFecha(ByVal dFecha As Date)
    mvardFecha = dFecha
End Property

Public Property Get nIgvRptZ() As Double
    nIgvRptZ = mvarnIgvRptZ
End Property

Public Property Let nIgvRptZ(ByVal nIgvRptZ As Double)
    mvarnIgvRptZ = nIgvRptZ
End Property

Public Property Get nTotalRptZ() As Double
    nTotalRptZ = mvarnTotalRptZ
End Property

Public Property Let nTotalRptZ(ByVal nTotalRptZ As Double)
    mvarnTotalRptZ = nTotalRptZ
End Property


Private Sub Class_Initialize()
    Set mvarbCompania = New bCompania
    Set mvarbUsuario = New bUsuario
End Sub
